(url-file-handler): Save match data.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index a65ba63926cecbc66a7ecbaabe7963162db7551b..494124822060081febb6470aa3497e48b153df5b 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2009-03-27  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * url-handlers.el (url-file-handler): Save match data.
+
 2009-02-21  Jason Rumney  <jasonr@gnu.org>
 
        * url-expand.el (url-default-expander): Use concat to combine

diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el
index cf8f4fd4e3e045c729576d4e797a4b473bab87ff..c06e841b2c87cc5e298436e442d3062b8e94a46e 100644 (file)
--- a/lisp/url/url-handlers.el
+++ b/lisp/url/url-handlers.el
@@ -132,7 +132,7 @@ the arguments that would have been passed to OPERATION."
        (hooked nil))
     (if (and fn (fboundp fn))
        (setq hooked t
-             val (apply fn args))
+             val (save-match-data (apply fn args)))
       (setq hooked nil
            val (url-run-real-handler operation args)))
     (url-debug 'handlers "%s %S%S => %S" (if hooked "Hooked" "Real")